(ns pe.p29)

(defn pow-seq [num] (iterate #(* % num) num))

(defn p29 []
  (println
    (count
    (distinct
    (apply concat (for [exp (range 2 101)] (distinct (take 99 (next (pow-seq exp))))))))))

(p29)